home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / Tilt v1.1••• / Tilt v1.1еее / background_2974.txt < prev    next >
Text File  |  1990-10-02  |  18KB  |  844 lines
  1. -- background: 2974 from stack: in.1–µ–µ–µ
  2. -- bmap block id: 3983
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. On OpenBackground
  8.   global aimPoint
  9.   global defense
  10.   set hilite of bkgnd button aimPoint to true
  11.   set hilite of bkgnd button defense to true
  12.   global winLose
  13.   put 0 into winLose
  14. End OpenBackground
  15.  
  16.  
  17.  
  18.  
  19. -- part 12 (button)
  20. -- low flags: 00
  21. -- high flags: 0000
  22. -- rect: left=131 top=58 right=85 bottom=152
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: COHpic
  31. ----- HyperTalk script -----
  32. on mouseUp
  33.   global aimPoint
  34.   put 2 into x
  35.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  36.   set hilite of bkgnd button x to true
  37.   put x into aimPoint
  38.  
  39. end mouseUp
  40.  
  41.  
  42.  
  43. -- part 11 (button)
  44. -- low flags: 00
  45. -- high flags: 0006
  46. -- rect: left=0 top=68 right=86 bottom=131
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: COHrb
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   global aimPoint
  58.   put 2 into x
  59.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  60.   set hilite of bkgnd button x to true
  61.   put x into aimPoint
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 13 (button)
  67. -- low flags: 00
  68. -- high flags: 4006
  69. -- rect: left=0 top=96 right=113 bottom=132
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Hrb
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   global aimPoint
  81.   put 3 into x
  82.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  83.   set hilite of bkgnd button x to true
  84.   put x into aimPoint
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 14 (button)
  90. -- low flags: 00
  91. -- high flags: 0006
  92. -- rect: left=0 top=124 right=141 bottom=132
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: TGrb
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   global aimPoint
  104.   put 4 into x
  105.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  106.   set hilite of bkgnd button x to true
  107.   put x into aimPoint
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 15 (button)
  113. -- low flags: 00
  114. -- high flags: 0006
  115. -- rect: left=0 top=152 right=169 bottom=132
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: DCrb
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   global aimPoint
  127.   put 5 into x
  128.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  129.   set hilite of bkgnd button x to true
  130.   put x into aimPoint
  131.  
  132. end mouseUp
  133.  
  134.  
  135.  
  136. -- part 16 (button)
  137. -- low flags: 00
  138. -- high flags: 0006
  139. -- rect: left=0 top=179 right=197 bottom=132
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 1
  143. -- font id: 0
  144. -- text size: 12
  145. -- style flags: 0
  146. -- line height: 16
  147. -- part name: CPrb
  148. ----- HyperTalk script -----
  149. on mouseUp
  150.   global aimPoint
  151.   put 6 into x
  152.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  153.   set hilite of bkgnd button x to true
  154.   put x into aimPoint
  155.  
  156. end mouseUp
  157.  
  158.  
  159.  
  160. -- part 17 (button)
  161. -- low flags: 00
  162. -- high flags: 0006
  163. -- rect: left=0 top=207 right=224 bottom=132
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: SCrb
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   global aimPoint
  175.   put 7 into x
  176.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  177.   set hilite of bkgnd button x to true
  178.   put x into aimPoint
  179.  
  180. end mouseUp
  181.  
  182.  
  183.  
  184. -- part 18 (button)
  185. -- low flags: 00
  186. -- high flags: 0006
  187. -- rect: left=0 top=234 right=250 bottom=131
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: DFrb
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.   global aimPoint
  199.   put 8 into x
  200.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  201.   set hilite of bkgnd button x to true
  202.   put x into aimPoint
  203.  
  204. end mouseUp
  205.  
  206.  
  207.  
  208. -- part 19 (button)
  209. -- low flags: 00
  210. -- high flags: 0006
  211. -- rect: left=0 top=260 right=279 bottom=131
  212. -- title width / last selected line: 0
  213. -- icon id / first selected line: 0 / 0
  214. -- text alignment: 1
  215. -- font id: 0
  216. -- text size: 12
  217. -- style flags: 0
  218. -- line height: 16
  219. -- part name: FPrb
  220. ----- HyperTalk script -----
  221. on mouseUp
  222.   global aimPoint
  223.   put 9 into x
  224.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  225.   set hilite of bkgnd button x to true
  226.   put x into aimPoint
  227.  
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 20 (button)
  233. -- low flags: 00
  234. -- high flags: 0006
  235. -- rect: left=0 top=288 right=305 bottom=131
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 0
  240. -- text size: 12
  241. -- style flags: 0
  242. -- line height: 16
  243. -- part name: SFrb
  244. ----- HyperTalk script -----
  245. on mouseUp
  246.   global aimPoint
  247.   put 10 into x
  248.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  249.   set hilite of bkgnd button x to true
  250.   put x into aimPoint
  251.  
  252. end mouseUp
  253.  
  254.  
  255.  
  256. -- part 21 (button)
  257. -- low flags: 00
  258. -- high flags: 0006
  259. -- rect: left=0 top=319 right=336 bottom=132
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: SBrb
  268. ----- HyperTalk script -----
  269. on mouseUp
  270.   global aimPoint
  271.   put 11 into x
  272.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  273.   set hilite of bkgnd button x to true
  274.   put x into aimPoint
  275.  
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 22 (button)
  281. -- low flags: 00
  282. -- high flags: 0000
  283. -- rect: left=131 top=86 right=113 bottom=152
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 1
  287. -- font id: 0
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: Hpic
  292. ----- HyperTalk script -----
  293. on mouseUp
  294.   global aimPoint
  295.   put 3 into x
  296.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  297.   set hilite of bkgnd button x to true
  298.   put x into aimPoint
  299.  
  300. end mouseUp
  301.  
  302.  
  303.  
  304. -- part 23 (button)
  305. -- low flags: 00
  306. -- high flags: 0000
  307. -- rect: left=131 top=114 right=141 bottom=152
  308. -- title width / last selected line: 0
  309. -- icon id / first selected line: 0 / 0
  310. -- text alignment: 1
  311. -- font id: 0
  312. -- text size: 12
  313. -- style flags: 0
  314. -- line height: 16
  315. -- part name: TGpic
  316. ----- HyperTalk script -----
  317. on mouseUp
  318.   global aimPoint
  319.   put 4 into x
  320.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  321.   set hilite of bkgnd button x to true
  322.   put x into aimPoint
  323.  
  324. end mouseUp
  325.  
  326.  
  327.  
  328. -- part 24 (button)
  329. -- low flags: 00
  330. -- high flags: 0000
  331. -- rect: left=131 top=142 right=169 bottom=152
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: DCpic
  340. ----- HyperTalk script -----
  341. on mouseUp
  342.   global aimPoint
  343.   put 5 into x
  344.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  345.   set hilite of bkgnd button x to true
  346.   put x into aimPoint
  347.  
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part 25 (button)
  353. -- low flags: 00
  354. -- high flags: 0000
  355. -- rect: left=131 top=170 right=197 bottom=152
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: CPpic
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   global aimPoint
  367.   put 6 into x
  368.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  369.   set hilite of bkgnd button x to true
  370.   put x into aimPoint
  371.  
  372. end mouseUp
  373.  
  374.  
  375.  
  376. -- part 26 (button)
  377. -- low flags: 00
  378. -- high flags: 0000
  379. -- rect: left=131 top=198 right=225 bottom=152
  380. -- title width / last selected line: 0
  381. -- icon id / first selected line: 0 / 0
  382. -- text alignment: 1
  383. -- font id: 0
  384. -- text size: 12
  385. -- style flags: 0
  386. -- line height: 16
  387. -- part name: SCpic
  388. ----- HyperTalk script -----
  389. on mouseUp
  390.   global aimPoint
  391.   put 7 into x
  392.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  393.   set hilite of bkgnd button x to true
  394.   put x into aimPoint
  395. end mouseUp
  396.  
  397.  
  398.  
  399. -- part 27 (button)
  400. -- low flags: 00
  401. -- high flags: 0000
  402. -- rect: left=131 top=226 right=253 bottom=152
  403. -- title width / last selected line: 0
  404. -- icon id / first selected line: 0 / 0
  405. -- text alignment: 1
  406. -- font id: 0
  407. -- text size: 12
  408. -- style flags: 0
  409. -- line height: 16
  410. -- part name: DFpic
  411. ----- HyperTalk script -----
  412. on mouseUp
  413.   global aimPoint
  414.   put 8 into x
  415.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  416.   set hilite of bkgnd button x to true
  417.   put x into aimPoint
  418. end mouseUp
  419.  
  420.  
  421.  
  422. -- part 29 (button)
  423. -- low flags: 00
  424. -- high flags: 0000
  425. -- rect: left=131 top=254 right=281 bottom=152
  426. -- title width / last selected line: 0
  427. -- icon id / first selected line: 0 / 0
  428. -- text alignment: 1
  429. -- font id: 0
  430. -- text size: 12
  431. -- style flags: 0
  432. -- line height: 16
  433. -- part name: FPpic
  434. ----- HyperTalk script -----
  435. on mouseUp
  436.   global aimPoint
  437.   put 9 into x
  438.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  439.   set hilite of bkgnd button x to true
  440.   put x into aimPoint
  441. end mouseUp
  442.  
  443.  
  444.  
  445. -- part 30 (button)
  446. -- low flags: 00
  447. -- high flags: 0000
  448. -- rect: left=131 top=282 right=309 bottom=152
  449. -- title width / last selected line: 0
  450. -- icon id / first selected line: 0 / 0
  451. -- text alignment: 1
  452. -- font id: 0
  453. -- text size: 12
  454. -- style flags: 0
  455. -- line height: 16
  456. -- part name: SFpic
  457. ----- HyperTalk script -----
  458. on mouseUp
  459.   global aimPoint
  460.   put 10 into x
  461.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  462.   set hilite of bkgnd button x to true
  463.   put x into aimPoint
  464. end mouseUp
  465.  
  466.  
  467.  
  468. -- part 31 (button)
  469. -- low flags: 00
  470. -- high flags: 0000
  471. -- rect: left=131 top=310 right=337 bottom=152
  472. -- title width / last selected line: 0
  473. -- icon id / first selected line: 0 / 0
  474. -- text alignment: 1
  475. -- font id: 0
  476. -- text size: 12
  477. -- style flags: 0
  478. -- line height: 16
  479. -- part name: SBpic
  480. ----- HyperTalk script -----
  481. on mouseUp
  482.   global aimPoint
  483.   put 11 into x
  484.   If x <> aimPoint then set hilite of bkgnd button aimPoint to false
  485.   set hilite of bkgnd button x to true
  486.   put x into aimPoint
  487. end mouseUp
  488.  
  489.  
  490.  
  491. -- part 36 (button)
  492. -- low flags: 00
  493. -- high flags: 0006
  494. -- rect: left=164 top=78 right=95 bottom=285
  495. -- title width / last selected line: 0
  496. -- icon id / first selected line: 0 / 0
  497. -- text alignment: 1
  498. -- font id: 0
  499. -- text size: 12
  500. -- style flags: 0
  501. -- line height: 16
  502. -- part name: LLb
  503. ----- HyperTalk script -----
  504. on mouseUp
  505.   global defense
  506.   put 21 into x
  507.   If x <> defense then set hilite of bkgnd button defense to false
  508.   set hilite of bkgnd button x to true
  509.   put x into defense
  510. end mouseUp
  511.  
  512.  
  513.  
  514. -- part 37 (button)
  515. -- low flags: 00
  516. -- high flags: 0006
  517. -- rect: left=164 top=123 right=142 bottom=285
  518. -- title width / last selected line: 0
  519. -- icon id / first selected line: 0 / 0
  520. -- text alignment: 1
  521. -- font id: 0
  522. -- text size: 12
  523. -- style flags: 0
  524. -- line height: 16
  525. -- part name: LRb
  526. ----- HyperTalk script -----
  527. on mouseUp
  528.   global defense
  529.   put 22 into x
  530.   If x <> defense then set hilite of bkgnd button defense to false
  531.   set hilite of bkgnd button x to true
  532.   put x into defense
  533. end mouseUp
  534.  
  535.  
  536.  
  537. -- part 38 (button)
  538. -- low flags: 00
  539. -- high flags: 0006
  540. -- rect: left=164 top=170 right=189 bottom=286
  541. -- title width / last selected line: 0
  542. -- icon id / first selected line: 0 / 0
  543. -- text alignment: 1
  544. -- font id: 0
  545. -- text size: 12
  546. -- style flags: 0
  547. -- line height: 16
  548. -- part name: SSb
  549. ----- HyperTalk script -----
  550. on mouseUp
  551.   global defense
  552.   put 23 into x
  553.   If x <> defense then set hilite of bkgnd button defense to false
  554.   set hilite of bkgnd button x to true
  555.   put x into defense
  556. end mouseUp
  557.  
  558.  
  559.  
  560. -- part 39 (button)
  561. -- low flags: 00
  562. -- high flags: 0006
  563. -- rect: left=164 top=215 right=234 bottom=289
  564. -- title width / last selected line: 0
  565. -- icon id / first selected line: 0 / 0
  566. -- text alignment: 1
  567. -- font id: 0
  568. -- text size: 12
  569. -- style flags: 0
  570. -- line height: 16
  571. -- part name: SHb
  572. ----- HyperTalk script -----
  573. on mouseUp
  574.   global defense
  575.   put 24 into x
  576.   If x <> defense then set hilite of bkgnd button defense to false
  577.   set hilite of bkgnd button x to true
  578.   put x into defense
  579. end mouseUp
  580.  
  581.  
  582.  
  583. -- part 40 (button)
  584. -- low flags: 00
  585. -- high flags: 0006
  586. -- rect: left=164 top=262 right=279 bottom=290
  587. -- title width / last selected line: 0
  588. -- icon id / first selected line: 0 / 0
  589. -- text alignment: 1
  590. -- font id: 0
  591. -- text size: 12
  592. -- style flags: 0
  593. -- line height: 16
  594. -- part name: SLb
  595. ----- HyperTalk script -----
  596. on mouseUp
  597.   global defense
  598.   put 25 into x
  599.   If x <> defense then set hilite of bkgnd button defense to false
  600.   set hilite of bkgnd button x to true
  601.   put x into defense
  602. end mouseUp
  603.  
  604.  
  605.  
  606. -- part 50 (field)
  607. -- low flags: 01
  608. -- high flags: 0000
  609. -- rect: left=2 top=30 right=51 bottom=149
  610. -- title width / last selected line: 0
  611. -- icon id / first selected line: 0 / 0
  612. -- text alignment: 0
  613. -- font id: 5
  614. -- text size: 14
  615. -- style flags: 1280
  616. -- line height: 18
  617. -- part name: AimTitle
  618.  
  619.  
  620. -- part 51 (field)
  621. -- low flags: 01
  622. -- high flags: 0000
  623. -- rect: left=168 top=30 right=50 bottom=329
  624. -- title width / last selected line: 0
  625. -- icon id / first selected line: 0 / 0
  626. -- text alignment: 0
  627. -- font id: 5
  628. -- text size: 14
  629. -- style flags: 1280
  630. -- line height: 18
  631. -- part name: 
  632.  
  633.  
  634. -- part 52 (button)
  635. -- low flags: 00
  636. -- high flags: 4006
  637. -- rect: left=164 top=307 right=326 bottom=290
  638. -- title width / last selected line: 0
  639. -- icon id / first selected line: 0 / 0
  640. -- text alignment: 1
  641. -- font id: 0
  642. -- text size: 12
  643. -- style flags: 0
  644. -- line height: 16
  645. -- part name: LHb
  646. ----- HyperTalk script -----
  647. on mouseUp
  648.   global defense
  649.   put 26 into x
  650.   If x <> defense then set hilite of bkgnd button defense to false
  651.   set hilite of bkgnd button x to true
  652.   put x into defense
  653. end mouseUp
  654.  
  655.  
  656.  
  657. -- part 43 (button)
  658. -- low flags: 00
  659. -- high flags: 0000
  660. -- rect: left=285 top=62 right=101 bottom=330
  661. -- title width / last selected line: 0
  662. -- icon id / first selected line: 0 / 0
  663. -- text alignment: 1
  664. -- font id: 0
  665. -- text size: 12
  666. -- style flags: 0
  667. -- line height: 16
  668. -- part name: LLpic
  669. ----- HyperTalk script -----
  670. on mouseUp
  671.   global defense
  672.   put 21 into x
  673.   If x <> defense then set hilite of bkgnd button defense to false
  674.   set hilite of bkgnd button x to true
  675.   put x into defense
  676. end mouseUp
  677.  
  678.  
  679.  
  680. -- part 45 (button)
  681. -- low flags: 00
  682. -- high flags: 0000
  683. -- rect: left=285 top=111 right=150 bottom=330
  684. -- title width / last selected line: 0
  685. -- icon id / first selected line: 0 / 0
  686. -- text alignment: 1
  687. -- font id: 0
  688. -- text size: 12
  689. -- style flags: 0
  690. -- line height: 16
  691. -- part name: LRpic
  692. ----- HyperTalk script -----
  693. on mouseUp
  694.   global defense
  695.   put 22 into x
  696.   If x <> defense then set hilite of bkgnd button defense to false
  697.   set hilite of bkgnd button x to true
  698.   put x into defense
  699.  
  700. end mouseUp
  701.  
  702.  
  703.  
  704. -- part 46 (button)
  705. -- low flags: 00
  706. -- high flags: 0000
  707. -- rect: left=286 top=159 right=198 bottom=331
  708. -- title width / last selected line: 0
  709. -- icon id / first selected line: 0 / 0
  710. -- text alignment: 1
  711. -- font id: 0
  712. -- text size: 12
  713. -- style flags: 0
  714. -- line height: 16
  715. -- part name: SSpic
  716. ----- HyperTalk script -----
  717. on mouseUp
  718.   global defense
  719.   put 23 into x
  720.   If x <> defense then set hilite of bkgnd button defense to false
  721.   set hilite of bkgnd button x to true
  722.   put x into defense
  723. end mouseUp
  724.  
  725.  
  726.  
  727. -- part 47 (button)
  728. -- low flags: 00
  729. -- high flags: 0000
  730. -- rect: left=288 top=205 right=244 bottom=333
  731. -- title width / last selected line: 0
  732. -- icon id / first selected line: 0 / 0
  733. -- text alignment: 1
  734. -- font id: 0
  735. -- text size: 12
  736. -- style flags: 0
  737. -- line height: 16
  738. -- part name: SHpic
  739. ----- HyperTalk script -----
  740. on mouseUp
  741.   global defense
  742.   put 24 into x
  743.   If x <> defense then set hilite of bkgnd button defense to false
  744.   set hilite of bkgnd button x to true
  745.   put x into defense
  746. end mouseUp
  747.  
  748.  
  749.  
  750. -- part 48 (button)
  751. -- low flags: 00
  752. -- high flags: 0000
  753. -- rect: left=290 top=252 right=292 bottom=335
  754. -- title width / last selected line: 0
  755. -- icon id / first selected line: 0 / 0
  756. -- text alignment: 1
  757. -- font id: 0
  758. -- text size: 12
  759. -- style flags: 0
  760. -- line height: 16
  761. -- part name: SLpic
  762. ----- HyperTalk script -----
  763. on mouseUp
  764.   global defense
  765.   put 25 into x
  766.   If x <> defense then set hilite of bkgnd button defense to false
  767.   set hilite of bkgnd button x to true
  768.   put x into defense
  769. end mouseUp
  770.  
  771.  
  772.  
  773. -- part 49 (button)
  774. -- low flags: 00
  775. -- high flags: 0000
  776. -- rect: left=290 top=299 right=338 bottom=335
  777. -- title width / last selected line: 0
  778. -- icon id / first selected line: 0 / 0
  779. -- text alignment: 1
  780. -- font id: 0
  781. -- text size: 12
  782. -- style flags: 0
  783. -- line height: 16
  784. -- part name: LHpic
  785. ----- HyperTalk script -----
  786. on mouseUp
  787.   global defense
  788.   put 26 into x
  789.   If x <> defense then set hilite of bkgnd button defense to false
  790.   set hilite of bkgnd button x to true
  791.   put x into defense
  792. end mouseUp
  793.  
  794.  
  795.  
  796. -- part 59 (button)
  797. -- low flags: 00
  798. -- high flags: 0000
  799. -- rect: left=457 top=304 right=342 bottom=500
  800. -- title width / last selected line: 0
  801. -- icon id / first selected line: 0 / 0
  802. -- text alignment: 1
  803. -- font id: 0
  804. -- text size: 12
  805. -- style flags: 0
  806. -- line height: 16
  807. -- part name: Scorebtn
  808. ----- HyperTalk script -----
  809. on mouseUp
  810.   global placeMark
  811.   put 2 into placeMark
  812.   go card 12
  813. end mouseUp
  814.  
  815.  
  816.  
  817. -- part 60 (button)
  818. -- low flags: 00
  819. -- high flags: 0000
  820. -- rect: left=418 top=153 right=266 bottom=490
  821. -- title width / last selected line: 0
  822. -- icon id / first selected line: 0 / 0
  823. -- text alignment: 1
  824. -- font id: 0
  825. -- text size: 12
  826. -- style flags: 0
  827. -- line height: 16
  828. -- part name: TILT!
  829. ----- HyperTalk script -----
  830. on mouseUp
  831.   play "harpsichord"
  832.   Put 1 into It
  833.   visual effect checkerboard slowly
  834.  
  835.   put the random of 6 into it
  836.   If It=1 then go card "Opp1LR"
  837.   If It=2 then go card "Opp1LL"
  838.   If It=3 then go card "Opp1SS"
  839.   If It=4 then go card "Opp1SH"
  840.   If It=5 then go card "Opp1SL"
  841.   If It=6 then go card "Opp1LH"
  842. end mouseUp
  843.  
  844.